home *** CD-ROM | disk | FTP | other *** search
/ FM Towns: Free Software Collection 7 / FM Towns Free Software Collection 7.iso / game / pyon_k / pk_start.bas < prev    next >
BASIC Source File  |  1993-11-30  |  807b  |  22 lines
  1. 1000 '          PYONPYON KANGAROO  Ver 1.0  START_PROGRAM  1992.9.6
  2. 1010 '                          PROGRAMED BY  K.SATO
  3. 1020 '
  4. 1030 '---------START-------
  5. 1040 CLEAR:DEFINT A-Z:BEEP 363523,2,4000:CLS:SCREEN 0:SCREEN@ 1
  6. 1050 SCREEN 1,0,2,1
  7. 1060 LOAD@ "PUNCH2.PMB":LOAD@ "PK_PTN.TIF"
  8. 1070 DIM SP_PTN%(255):HHH=5:CT=0
  9. 1080 FOR H=0 TO 1:FOR I=0 TO HHH :FOR J=0 TO 2:FOR K=0 TO 2
  10. 1090 GET@A (16*K+(I*48),16*J+(H*48))-((16*(K+1))-1+(I*48),16*(J+1)-1+(H*48)),SP_PTN%
  11. 1100 DEF SPRITE 0,CT,SP_PTN%,1:CT=CT+4
  12. 1110 NEXT K:NEXT J:NEXT I:NEXT H
  13. 1120 '
  14. 1130 'パンチスプライト P1
  15. 1140 GET@A (288,0)-(303,15),SP_PTN%
  16. 1150 DEF SPRITE 0,432,SP_PTN%,1
  17. 1160 'パンチスプライト P2
  18. 1170 GET@A (288,48)-(303,63),SP_PTN%
  19. 1180 DEF SPRITE 0,436,SP_PTN%,1
  20. 1190 CLS:SCREEN 0
  21. 1200 ERASE SP_PTN%:CHAIN "PK_MAIN.BAS"
  22.